home *** CD-ROM | disk | FTP | other *** search
/ AMIGA-CD 2 / Amiga-CD - Volume 2.iso / ungepackte_daten / 1993 / 5 / 04b / funktionsplotter / fplotter.ampk / Renderer / TXT / Render.def < prev    next >
Encoding:
Text File  |  1995-06-01  |  1.9 KB  |  66 lines
  1. |##########|
  2. |#MAGIC   #|BOPDNOGO
  3. |#PROJECT #|""
  4. |#PATHS   #|"EGSProject"
  5. |#FLAGS   #|xx---x--x----xx-----------------
  6. |#USERSW  #|--------------------------------
  7. |#USERMASK#|--------------------------------
  8. |#SWITCHES#|x----xxxxx-xx---
  9. |##########|
  10. DEFINITION MODULE Render;
  11.  
  12. FROM EGS        IMPORT CLUEntry,EBitMapPtr;
  13. FROM EGSGfx     IMPORT RastPortPtr;
  14. FROM EGSGadBox  IMPORT ResBox;
  15.  
  16. TYPE
  17.   FuncParams = RECORD
  18.                  funcStr : STRING(202);
  19.                  minX,
  20.                  maxX,
  21.                  minY,
  22.                  maxY,
  23.                  minZ,
  24.                  maxZ    : LONGREAL;
  25.                END;
  26.   DrawModes  = (wire,solid,shaded,traced);
  27.   LightDirs  = (top,front,left,right);
  28.   Pitch      = [0..90];
  29.   Bearing    = [-90..90];
  30.   DrawParams = RECORD
  31.                  mode         : DrawModes;
  32.                  light        : LightDirs;
  33.                  outlined     : BOOLEAN;
  34.                  mirror       : BOOLEAN;
  35.                  specular     : BOOLEAN;
  36.                  shadows      : BOOLEAN;
  37.                  resolution   : INTEGER;
  38.                  fColor,
  39.                  bColor       : CLUEntry;
  40.                  fPen,
  41.                  bPen         : LONGCARD;
  42.                  pitch        : Pitch;
  43.                  bearing      : Bearing;
  44.                  renderMap    : EBitMapPtr;
  45.                END;
  46.  
  47.   Break      = PROCEDURE():BOOLEAN;
  48.  
  49. PROCEDURE CheckFunction(REF str : STRING):INTEGER;
  50.  
  51.  
  52. PROCEDURE RenderFunction(    rast   : RastPortPtr;
  53.                          REF area   : ResBox;
  54.                          REF func   : FuncParams;
  55.                          REF draw   : DrawParams;
  56.                              break  : Break);
  57.  
  58.  
  59. PROCEDURE AxisMove(    rast    : RastPortPtr;
  60.                    REF area    : ResBox;
  61.                    VAR draw    : DrawParams;
  62.                        pitch   : Pitch;
  63.                        bearing : Bearing);
  64.  
  65. END Render.
  66.